ALTER PROCEDURE sp_set_DocProProveido
    @cDocCodigo VARCHAR(20) ,
    @cPerProCodigo VARCHAR(10) ,
	@cPerProProCodigo VARCHAR(10) ,
    @UOCodigo INT ,
    @cDocEstado VARCHAR(5)
AS 
    BEGIN

        INSERT  INTO DocPersona
                ( cDocCodigo ,
                  nDocPerTipo ,
                  cPerCodigo ,
                  nPerRelacion
                )
        VALUES  ( @cDocCodigo ,
                  3 ,
                  @cPerProProCodigo ,
                  1
                )

        DECLARE @cont INT
		DECLARE @cDocPerTipo varchar(6)

        SELECT  @cont = COUNT(*)
        FROM    DocPerEdit
        WHERE   cDocCodigo = @cDocCodigo
                AND nDocEstIni = 6326  

        IF @cont > 0 
            BEGIN
                SET @cDocPerTipo = @cDocPerTipo + RIGHT('00' & @cont, 2)
            END    

        INSERT  INTO DocPerEdit
                ( cDocCodigo ,
                  cPerCodigo ,
                  nDocPerEdiTipo ,
                  nUniOrgCodigo ,
                  nDocEstIni ,
                  nDocEstFin ,
                  dDocEdiFecha ,
                  cDocEdiObs
                )
        VALUES  ( @cDocCodigo ,
                  @cPerProProCodigo ,
                  @cDocPerTipo ,
                  @UOCodigo ,
                  @cDocEstado ,
                  @cDocEstado ,
                  CONVERT(DATETIME, ( DATEADD(mi, 2, GETDATE()) ), 120) ,
                  NULL
                )

        IF EXISTS ( SELECT  nDocPerTipo
                    FROM    DocPersona
                    WHERE   cDocCodigo = @cDocCodigo
                            AND cPerCodigo = @cPerProCodigo
                            AND nDocPerTipo = 6 ) 
            BEGIN 
                UPDATE  DocPersona
                SET     nDocPerTipo = -6
                WHERE   cDocCodigo = @cDocCodigo
                        AND cPerCodigo = @cPerProCodigo
                        AND nDocPerTipo = 3 
            END
        ELSE 
            BEGIN
                UPDATE  DocPersona
                SET     nDocPerTipo = 6
                WHERE   cDocCodigo = @cDocCodigo
                        AND cPerCodigo = @cPerProCodigo
                        AND nDocPerTipo = 3 
            END          

        SELECT  cDocCodigo
        FROM    dbo.Docpersona
        WHERE   cDocCodigo = @cDocCodigo
                AND cPerCodigo = @cPerProCodigo
                AND nDocPerTipo = 3

    END